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PEEKtng In AuxMera, Switching Banks, 
and a Couple Bad Jokes 



1 hope you enjoyed last month's 24 page 
extravaganza. It was very enjoyable (though 
a tad expensive) to be able to bring you such a 
thick issue. Don Lancaster calls such a deal 
"personal value added" - i.e. giving the 
customer a smidgin more than they expected 
and in a manner only you can deliver. I hope 
to be able to do stuff like that often. BTW, 
Don's book, The Incredible Secret Money 
Machine, is a fun and totally hip guide to 
starting your own business. There is a lot of 
sage advice within its pages. And it appeals 
to the aging hippie within me, too. 

Speaking of business, I need to remind those 
of you who have charged your subscriptions 
that our name will appear as "Teacher's 
Software Co." on your bill. Please don't do a 
"charge back"; it is really us. We changed our 
name with the bank long ago, but the VISA 
and MASTERCARD folks are the epitome of 
unresponsiveness. Now that we're back in 
civilization I'm changing banks - that ought 
to get it straightened out (don't anyone ask if 
I'm in the main bank or the aux bank, 
though ... booo, I know). 

Some of my "friends" have been making fun 
of my sense of humor lately. That should 
teach 'em. Neener neener neener. 



Back Issues? 

...are three dollars each, including shipping 
and handling. We started in January with 
Volume 1, Number 1. And yes, we've been 
slower than break-up in Unalakleet in 
getting some of them out to you. However, by 
the time you read this everyone should have 
their back orders (assuming you ordered 
back issues before June 20th). If we've 
messed you over, our apologies, and please 
let us know. We'll make it right ASAP. 

And yes, I agree with those of you who would 
like a commented listing of the articles in 



the back issues. I'll include a one page insert 
every now and again (next month?). 



The Quarterly Disk? 

...will be out within 10 days or so after you 
receive this newsletter. That makes a little 
sense if you stop to consider that it includes 
the source code and most of the text for this 
issue. 

A couple people have asked about the "SAPP 
DISPLAYER" code and some of the funny 
binary files on the disk (like RT.AUX, etc.) I 
hope no one shoots me over this, but SAPP 
DISPLAYER is a SFGETFILE work- alike 
written in ZBASIC™. The funny binary 
files are part of the ZBASIC run-time 
package. I meant to put that on the title 
screen and forgot (Oops, sorry Zedcor!). 
BTW, I am chasing down a screwy little bug 
that seems to mess up my mouse routines on 
a He. If you had problems with your SAPP 
disk in that regard, it is our problem, not 
yours. I hope to have it fixed post haste. 

Incidentally, we publish Znews, too, a 
ZBASIC programming newsletter. And if 
you'll forgive a tiny commercial: we're giving 
away ZBASIC at our cost ($42) and we'll 
throw in a sample Znews - this because we 
believe you'll love the language (we're 
hooked) and you'll subscribe to the 
newsletter ($29.95 for 1 year). 



Where's Mike? 

Poor Mike Rochip, he's been left out in the 
cold again this month. My source code cup 
brimmeth over, so Mike and I both got 
elbowed out into next month's issue. 

On tap this month: I finally have an 
opportunity to print the 16 bit version of 
Steven Lepisto's "Vectored Joystick 
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Programming" code (the article and the first 
part of the 8-bit code ran in March. The rest 
of the 8-bit code ran in April). 

If you make use of his subroutine notice that 
the responsiveness (i.e. the cycles used) 
changes depending on your screen position. 
If you need a constant number of cycles per 
read you'll want to insert some sort of 
scaling factor. I'll see what I can do about 
that myself in a future issue. 

This month's feature presentation is another 
8-bit adventure (See? I haven't been 
neglecting you 8 -bit afficionados! It so 



happens that most of my contract work is 8 
bit. ) Matt Neuberg's "AUXPEEK" program is 
a utility designed to allow us to probe 
auxiliary memory in very much the same 
manner that the monitor probes main 
memory. I wish I had this program months 
ago when I was working on some double high 
resolution graphics routines. It would have 
saved some headaches, I think. 

There is a lot I like about his code, 
particularly the clever manner in which he 
returned program control to main memory. 
I guess I ought to let you see for yourself, 
though. Dig in and enjoy! 



PEEKing at Auxiliary Memory: 
a Monitor Utility 



by Matthew Neuberg 



The Monitor's Blind Spot 

Anyone using the Monitor to snoop around inside a 128K machine (enhanced He, lie, or 
Laser 128), has probably encountered an annoying limitation: the Monitor is incapable of 
reporting on the contents of auxiliary memory. In effect we have a 128K computer of which 
the Monitor can see only 64K. 

If, however, a program which we are trying to develop or investigate uses or partly lives in 
auxiliary memory, the ability to peek into the 2nd 64K can be crucial. Since the Monitor 
cannot do this for us, we will write a utility of our own: AUXPEEK. The exercise will not 
only result in a valuable tool for investigation and development, but will also teach us 
something about program interaction across the main/ auxiliary RAM boundary. 



128K Memory Architecture 

Even though all 128K of a 128K Apple (or Laser) may in theory be accessed immediately by a 
program as it is running, or may be interpreted as a program and executed by the computer's 
microprocessor, the fact is that the microprocessor can only think at any given moment 
about addresses within a range of 64K, because the Program Counter is only 16 bits. 
Therefore the 128K is divided into two 64K groups, called Main and Aux RAM, only one of 
which can be an object of the microprocessor's attention at any given moment. 

But the situation is in reality more complicated than this. Each 64K of RAM is itself divided 
into groups. Memory in the range of addresses $200-$BFFF is treated as a unit, called the 
48K memory. On the other hand, the zero-page, the page 1 stack, and the addresses $D000- 
$FFFF are treated as a separate unit, called bank-switched memory. This name derives 
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from the fact that the range of addresses $DOOO-$DFFF actually refers to two 4K groups of 
memory, called Bank 1 and Bank 2, though once again the computer cannot think about 
both banks simultaneously. (Thus e.g. the address $D000 can refer to any of four data bytes: 
main bank 1, main bank 2, auxiliary bank 1, or auxiliary bank 2.) 

Note: Firmware memory, occupying the region $COOO-$CFFF, is not treated in this article. 
Some computers have more than one bank of memory in this region (""expansion ROM"), 
containing important routines, but AUXPEEK will not permit us to examine these. 

The purpose of this division into units is to enable the units to be switched between Main 
and Aux separately. There are three distinct sections of memory and three questions we 
must examine, all of which are answered by setting softswitches, namely : 1) Which 48K 
bank should the CPU address? 2) Which bank-switched memory (Main or Aux) should the 
CPU address, and 3) Within the Main or Aux banks of question 2, which 4K bank should the 
CPU address? A possible setting might thus be: Main 48K RAM ($200-$BFFF) , Aux bank- 
switched RAM (zero-page, page 1 stack, and $DOOO-$FFFF), and Bank 1 ($DOOO-$DFFF). 

But the soft-switches do not simply select which regions of memory the computer is to 
think about absolutely. Rather, the concept of ""thinking about" is divided into two sorts of 
operation: reading and writing. For example, LDA is a ""read" operation; STA is a ""write" 
operation. It is important to understand what our options are in this connection. 

In the case of 48K memory, the soft-switches allow us to set separately the memory group 
(Main or Aux) to which each sort of operation is to apply. A program running entirely 
within Main 48K memory has the switches set so as both to read and to write in Main 48K 
memory; but we can in fact set the switches, say, so as to read from Main 48K memory and 
write to Aux 48K memory. Under such a setting, for example, a sequence of commands lda 
$2000, STA $2000 would transfer the contents of Main $2000 to Aux $2000. (The 
Accumulator, to and from which our LDA-ing and STA-ing is performed, is unique and not 
a part of memory, which is why it can be used as an intermediary in this transfer.) 

In the case of bank-switched memory, the situation is different. First of all, when we select 
Main or Aux, we must commit ourselves as part of that selection to using Bank 1 or Bank 2 
of the region $D000-$DFFF. Secondly, we cannot select one of Main or Aux for reading and 
the other for writing, and, even when we select Main or Aux $D000-$FFFF for reading only, 
we have automatically selected the corresponding (Main or Aux) zero-page and page 1 stack 
for both reading and writing. 

The Problem 

The above facts are important because they have dictated the way in which AUXPEEK 
operates. First, let's decide on grounds of convenience to have AUXPEEK live in Main page 
3, where it is least likely to interfere with anything. Moreover, we may as well give 
AUXPEEK maximum value by enabling it to peek at any part of memory outside Main 48K 
(that is, not only Aux 48K, but also Main or Aux bank-switched memory, and either Bank 1 
or Bank 2). 

Now, it will be very easy to peek at any bank-switched memory address: we have only to 
select the desired bank and Main or Aux bank-switched memory (which will not affect our 
program in page 3, since page 3 is not part of bank-switched memory), and then LDA 
directly from the desired address. 
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Figure 1. - A Simplified 128K Apple II 
Memory Map 



Main 
Memory 



Auxiliary 
Memory 




1, 2, & 3 refer to 
segments of memory 
that can be "swapped" 
and/or examined using 
AUXPEEK. 



Main Bank 
Switched 
RAM (12K) 



BankO 
4K 



Bank 1 
4K 



Main 48K 




Aux Bank 
Switched 
RAM (12K) 



BankO 
4K 



Bank 
4K 



AUX 48K 



On the other hand, we will have to be very clever in order to read from Aux 48K memory. It 
is easy for a program running in Main 48K to poke a value into Aux 48K; we have seen above 
how to do this. But a program running in Main 48K can by no means of itself peek at (read 
from) Aux 48K. This is because, in a Von Neumann machine (and all modem computers are 
Von Neumann machines), programs live in memory as, and are indistinguishable from, 
data. This means that if a program running in Main 48K throws the switch commanding 
the microprocessor to perform subsequent read operations from Aux 48K, the 
microprocessor, having upped the Program Counter appropriately, will look to Aux 48K for 
the next program instruction, because fetching a program instruction counts as a read 
operation. But if our program lives entirely in Main 48K, it won't find it, and we are heading 
for a crash. 

Solutions 

Most programs which use 128K transfer information between Aux and Main memory 
through the use of built-in firmware routines. If the address of data to be transferred is 
known absolutely, it is possible to use the routine AuxMove (or MoveAux), which copies a 
block of memory from Main 48K to Aux 48K or vice versa. This approach, however, lacks 
flexibility: the manual warns us that it works only within 48K memory, and besides, to 
prepare a call to AuxMove requires considerable program space, something of which we are 
particularly jealous, since we are confining AUXPEEK to page 3. 
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A more complex solution is to place into Aux memory, in advance, a routine for obtaining 
data from Aux memory, and then, at the appropriate moment, transfer control to that 
routine via the computer's firmware routine XFer. (This, for example, is the method used by 
Glen Bredon's SOURCEROR.) This method is especially useful when we must use indirect 
addressing to obtain our data: the address of the desired information is stored in the zero- 
page; then control is passed to the routine in Aux memory, which does an indirect- 
addressing read from Aux memory and then transfers control back to the appropriate place 
in Main memory, carrying the desired value in the accumulator. But this method has the 
same drawback as using AuxMove, and besides, it also requires the overwriting of much 
Aux memory, so that we might overwrite something we wanted to peek at. 

Our solution is to exploit to the fullest the nature of the problem itself. In our main 
program, we will go ahead and throw the switch commanding subsequent read operations 
to come from Aux memory; but we will in advance have planted some code at the 

corresponding next program address in Aux memory where the processor will then find 

and execute it. This code will simply perform a direct LDA, and then throw the switch 
commanding read operations to come from Main memory once again, thus transferring 
control back to our main program. 

This solution has two great advantages. First, we will still have to overwrite some of Aux 
memory, but only 6 bytes. Second, we will copy our code into Aux memory from within our 
program in Main memory at exactly the same addresses; this means that, just in case we 
are called upon to peek, not at Aux memory, but at Main (bank-switched) memory, we can 
bypass the command to read from Aux memory, and the LDA command will be in place 
right in our program in Main memory. 

But how will the LDA command planted in Aux memory know what address to read from? 
We do not want to use indirect addressing, because this will involve modifying the zero-page 
and add other complications. The simplest solution is to have our program modify itself. 
As soon as we know what address we want to read from, we will copy that address into our 
program code right after the LDA code. Then when we copy our two lines of code into Aux 
memory, the LDA command will already be correct. 

(Note: Occasionally one sees a claim that self-modifying code is bad programming 
practice. My response is that if you don't like self-modifying code you've no business either 
using a Von Neumann machine or writing machine code: this sort of technique is just what 
they're for!) 



Other Implementation Details 

The Monitor includes a user-command facility: the command CTRL-Y, which simply 
causes a call to $3F8. We will therefore include in AUXPEEK a header which puts at $3F8 a 
JMP to our main routine and then does an RTS; this header will be run only when 
AUXPEEK is first loaded, via a BRUN command. Moreover, since the program memory 
occupied by the header is then superfluous, it will subsequently be used during calls to 
AUXPEEK for data storage. 

Obviously AUXPEEK must be able to parse a keyboard command. Since this would be 
extremely consumptive of program space, we will have the Monitor do the parsing for us via 
the routine GETNUM ($FFA7), which, though not a ""legal" entry point, is reliable for both 
128K Apples and the Laser. 
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GETNUM expects a Monitor command in the input buffer, starting at $200,Y. A Monitor 
command consists of up to 4 hex digits, followed optionally by a (non-hex) upper case 
letter. GETNUM halts when it encounters either a (non-hex) letter or a CR. After GETNUM 
halts, A2 ($3E/$3F) contains the numeric part of the command; the Accumulator contains 
the item that caused the halt, that is, either a letter if one was encountered or a CR if not; 
and Y indexes the item within the input buffer after the item that caused the halt. 

(Editor: During the course of editing this article, I discovered that Professor Neuberg's 
assumptions in the paragraph above were 100% accurate -for the Laser, his machine of 
choice. On an Apple n, the accumulator holds an encoded value after returning from 
GETNUM (as opposed to a true ASCII code). For this reason I inserted a dey , an lda 
$ 2 , y , and a quick iny . This loads A with the value of the non-hex character that 
bumped us out of GETNUM and properly restores the Y offset, thereby creating the 
conditions the good professor needed for the rest of his code to work. I highlighted my 
changes with boldfaced comments.) 

To make life easier, we will have AUXPEEK show us, each time it is called, 8 bytes starting 
at the byte named in the command. We won't make any attempt to arrange these bytes in 
mod-8 groups, as the Monitor does. We will, however, imitate the Monitor to this extent: 
immediately after one call to AUXPEEK, following the display of 8 bytes, a subsequent 
command CTRL-Y, with no address attached, will be sufficient to cause the display of the 
next 8 bytes. This will be valuable in case we want to look at a sizeable block of bytes. Every 
time AUXPEEK prints a group of 8 bytes, it will precede it with the address of the first byte, 
printed in inverse, to distinguish it from output of the Monitor's own memory display 
routines. 

Installation and Command Syntax 

As stated above, installation consists of BRUNning AUXPEEK from BASIC. It will then be 
installed into page 3 memory, with the CTRL-Y vector pointing at it. 

You can then enter the Monitor via CALL -151. For safety's sake, you should probably put 
yourself into 40-column mode (using ESC CTRL-Q) before issuing any commands to 
AUXPEEK. 

Subsequent to installation, calls to AUXPEEK may be given to the Monitor, in response to 
the Monitor's asterisk-prompt. A legal command consists of CTRL-Y (which will not appear 
on the screen, alas) followed immediately, as part of the same line and without spaces, by 
up to 4 hex digits denoting the starting address to be peeked at. (A CR, of course, terminates 
the command.) 

For example, the command [CTRL-Y]A100 will cause the display of 8 bytes starting at Aux 
$A100. Moreover, we will have AUXPEEK select by default the Aux bank-switched RAM, so 
commands for the Aux zero-page and stack will have the same syntax, e.g. [CTRL-Y], 

On the other hand, if the address to be examined lies in the range $EOOO-$FFFF, we will give 
the user the option of specifying either Main or Aux bank-switched RAM, by the addition of 
the letter M (Main) or X (auX) to the command. Thus [CTRL-Y]FOOOM will cause the display 
of 8 bytes starting at $F000 of Main bank-switched RAM. And, if the address to be examined 
lies within the 4K range $DOOO-$DFFF, the user should specify, in addition to Main or Aux, 
Bank 1 or 2, by the addition of 1 or 2 to the command: e.g. [CTRL-Y]D100M1 shows 8 bytes 
starting at $D100 of Bank 1 of Main bank-switched RAM. 
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Finally, as stated above, the command [CTRL-Y], If given directly after another AUXPEEK 
command, will cause the display of the next 8 bytes. 



AUXPEEK In Detail 

When a command line is gathered by the Monitor, using GETLNZ, it is placed into the input 
buffer at $200. The Monitor then calls GETNUM to parse the command. As soon as the first 
character, CTRL-Y, is encountered, GETNUM halts, and the Monitor passes control to 
AUXPEEK. 

AUXPEEK sets Y to 1 , just to be on the safe side, so that in the upcoming call to GETNUM the 
CTRL-Y at $200 will not be encountered. GETNUM is then called, and it parses the contents 
of the input buffer, starting at $201, loading up to 4 hex digits of the command into A2. 

Now if, after calling GETNUM, the accumulator holds a CR, we know that the command 
consisted at most of hex digits. Moreover, if the accumulator holds a CR and Y is 3, then the 
command must have consisted of just 2 bytes, namely, CTRL-Y and a CR, and no hex 
address. Finally, if the accumulator does not hold a CR, then it holds either M or X (unless 
the command is illegal), and Y indexes either a 1 or a 2, or something we can ignore (such as 
a CR or something illegal). If an illegal item is encountered, we jump back into the monitor 
with a beep. 

A variable MAINAUX is maintained, with the options for bank-switched memory X-or-M, 
2-or-l encoded in bits 6 and 7 respectively, where they can be easily checked by a BIT 
operation. If the user command is just [CTRL-Y], MAINAUX is left unchanged from the last 
time AUXPEEK was called, and the address to be read is fetched from within the program, 
where it was stored after that last call. Otherwise, MAINAUX is zeroed, which is interpreted 
as the default option Aux Bank 2, and then if the user's command consists of more than just 
hex digits, bits are rolled into MAINAUX to set it appropriately. 

We then print in inverse the first address to be shown, also transferring that address into 
the LDA command within the program. 

Next we copy the LDA command, and the following read-from-Main-48K command, into 
Aux memory. It is then a simple matter to use MAINAUX to select the correct soft-switches 
and read a byte of data. The byte is stored in the workspace that used to be occupied by the 
header. We then increment the address within the LDA command. We loop so as to perform 
the operations described in this paragraph 8 times; when we are done, the 8 bytes of data are 
in our workspace. 

The 8 bytes of data stored in the workspace are now printed, and we are done, so we jump 
back into the Monitor with no beep. The Monitor prints a prompt and waits for the next 
command. 



Voila! 



1 * AUXPEEK 

2 * a control-Y monitor utility to display AUX memory 

3 * and bank-switched RAM 

4 * Matt Neuburg — 3/20/89 
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=003E 6 
=0200 7 



A2 
IN 



EQU 
EQU 



$3E 
$200 



=FE80 
=FE84 
=FDED 
=FDDA 
=F9-41 
=FFA7 
=FF65 



command 



000300 
"JMP" . 
000302 
000305 
000307 
00030A 
00030C 
00030F 



000313 
000315 
000318 
000319 
00031C 
00031D 
00031F 
000321 
000323 
000325 
000328 
00032A 
00032D 
00032F 



A9 4C 

8D F8 03 
A9 13 
8D F9 03 
A9 03 
8D FA 03 
60 



000310: 4C 65 FF 
Beep 



A0 01 

20 A7 FF 

88 

B9 00 02 

C8 

C9 8D 

DO 19 =033A 

CO 03 

B0 OD =0332 

AD A2 03 

85 3E 

AD A3 03 

85 3F 

4C 5B 03 



000332: A9 00 

000334: 8D OF 03 

2) 

000337: 4C 5B 03 



00033A: C9 CD 
00033C: FO 04 
or X 



=0342 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
20 
21 
22 
23 

24 
25 
26 
27 
28 
29 
30 
31 
32 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 

54 
55 
56 
57 



* monitor routines 



SETINV 

SETNORM 

COUT 

PRBYTE 

PRTAX 

GETNUM 

MON 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$FE80 
$FE84 
$FDED 
$FDDA 
$F941 
$FFA7 
$FF65 



ORG $300 

* header to initialise 

TEMP LDA #$4C 

STA $3F8 

LDA #< START 

STA $3F9 

LDA #>START 

STA $3FA 
MAINAUX RTS 



;and $3F, set by GETNUM 
;the input buffer 



/print in inverse 

/print normal 

/print char in ace 

/print byte in ace 

/print bytes in ace, X 

/parse monitor command 

/print *, await monitor 



"Y-veotor, & variable storage 
/initialise ~Y vector: 

/ . . .to main routine 



NOGOOD JMP MON 



/err, return to Monitor with 



* start of ~Y routine: parse command 



START LDY 
JSR 
DEY 
LDA 
INY 
CMP 
BNE 
CPY 
BGE 
LDA 
STA 
LDA 
STA 
JMP 

DEFAULT LDA 
STA 

JMP 

CHEKSYN CMP 
BEQ 



#1 
GETNUM 

IN,Y 

#$8D 

CHEKSYN 

#3 

DEFAULT 

READ 1+1 

A2 

READ1+2 

A2 + 1 

PRINT 

#0 
MAINAUX 

PRINT 

#"M" 
VALIDMX 



/ignore the CTRL-Y 

/stick addr into A2 
/ redundant for Laser but 
/necessary on A2 - RWL 
/ bump Y back 

/is that all there is? 

/ =>no 

/yes, is it just ^Y CR? 

/ =>no 

/yes, don't alter MAINAUX, 

/ and set A2 ourselves 

/ using last ine'd value 

/==> done parsing 

/command was just addr: 

/ so zero MAINAUX (= aux bank 

/==> done parsing 

/there's more (M, Ml, etc.) : 
/ so check syntax, must be M 
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00033E 
000340 
000342 
000343 
later) 
000346 
000349 
00034B 
00034D 
00034F 
000351 
000353 
matter 
000355 
000357 
000358 



C9 D8 

DO CE =0310 

4A 

6E OF 03 

B9 00 02 

C9 Bl 

F0 0A =0357 

C9 B2 

FO 06 =0357 

A5 3F 

C9 EO 

90 B9 =0310 

4A 

6E OF 03 



00035B: 20 80 FE 



00035E: 
000360: 



A5 3F 
A6 3E 



000362: 8D A3 03 

000365: 8E A2 03 

later 

000368 

00036B 

00036E 

000370 



20 41 F9 
2 8 4 FE 
A9 BA 
20 ED FD 



000373: AO 07 



times 



000375 

000377 

00037A 

AUX 

00037D 

000380 

000381 



A2 05 
8D 05 CO 
BD Al 03 

9D Al 03 

CA 

10 F7 =037A 



000383: 8D 04 CO 



000386 

AUX? 

000389 

00038C 

00038E 

000391 
000394 
000397 
000399 



2C OF 03 

8D 08 CO 
70 03 =0391 
8D 09 CO 

AD 88 CO 
2C OF 03 
30 03 =039C 
AD 80 CO 



00039C: 70 03 =03Al 
00039E: 8D 03 CO 



58 
59 
60 
61 

62 
63 
64 
65 
66 
67 
68 

69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 

80 
81 
82 
83 
84 
85 
86 



89 
90 
91 
92 

93 
94 
95 
96 
97 
98 
99 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 



CMP 

BNE 

VALIDMX LSR 

ROR 

LDA 
CMP 
BEQ 
CMP 
BEQ 
LDA 
CMP 



#"X" 
NOGOOD 

MAINAUX 

IN,Y 
#"1" 
VALID 12 
#"2" 
VALID 12 
A2 + 1 
#$E0 



;this bit is auX=0, Main=l 
;put in bit 7 (will be 6 

; ,(Y has been incd by GETNUM) 
/continue checking syntax, 
; must either be 1 or 2 . . . 



;or else addr must >= $E000 
; (and in that case, won't 



BLT 

VALID12 LSR 

ROR 



; what "bank" bit we roll in) 
;this bit is 2=0, 1=1 
;put in bit 7 



NOGOOD 
MAINAUX 
* all roads lead here: print starting addr in inverse 



PRINT 



JSR 


SETINV 


LDA 


A2 + 1 


LDX 


A2 


STA 


READ1+2 


STX 


READl+1 


JSR 


PRTAX 


JSR 


SETNORM 


LDA 


#":" 


JSR 


COUT 



;also, copy starting addr.. 
; into prog for direct LDA 



LDY 



#7 



/initialise for indexing TEMP 
; and to loop what follows 8 



i8 * copy the LDA addr command into AUX mem 



XFER LDX 

STA 

SEND1 LDA 

STA 
DEX 
BPL 

STA 

BIT 

STA 
BVS 
STA 

PICKBANK LDA 
BIT 
BMI 
LDA 

PICKRAM BVS 
STA 



#XEND-READ1-1 /index bytes to copy 



$C005 
READ1,X 

READ1,X 

SEND1 

$C004 

MAINAUX 

$C008 

PICKBANK 

$C009 

$C088 
MAINAUX 
PICKRAM 
$C080 

READ1 
$C003 



/write to AUX mem 

/copy one byte from MAIN to 



/another? 
/=>yes, loop 

/done, restore write to MAIN 

/will we read from MAIN or 

/ select MAIN zp and bank-RAM 

; . . . or . . . 

/ select AUX zp and bank-RAM 

/select bank 1 bank-RAM read 

; . . .or . . . 

/select bank 2 bank-RAM read 

/ if MAIN, =>do nothing 
/if AUX, read from AUX ram 
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112 


* these 


are t 


hie two lines 


to be copied into AUX 










113 










0003A1 


AD 


FF 


FF 


114 


READl 


LDA 


$FFFF 


. n^FFF" modified by program 


0003A4 


8D 


02 


CO 


115 
116 




STA 


$C002 


/restore read from MAIN ram 


0003A7 


99 


00 


03 


117 
118 


XEND 


STA 


TEMP , Y 


;now we have obtained a byte 


0003AA 


EE 


A2 


03 


119 




INC 


READl+1 


/always inc addr 


0003AD 


DO 


03 


= 03B2 


120 




BNE 


NOTHI 




0003AF 


EE 


A3 


03 


121 




INC 


READ 1+2 




0003B2 


88 






122 


NOTHI 


DEY 




/dec TEMP index and count 


0003B3 


10 


CO 


=0375 


123 
124 




BPL 


XFER 


/do all that 8 times 










125 


* restore eve 


rything, print 8 bytes collected 










126 










0003B5 


8D 


08 


CO 


127 




STA 


$C008 


/restore MAIN zp 


0003B8 


AD 


81 


CO 


128 




LDA 


$C081 


/restore read ROM, write RAM 2 


0003BB 


AD 


81 


CO 


129 
130 




LDA 


$C081 


/ (again) 


0003BE 


A0 


07 




131 
132 




LDY 


#7 


/ 8 bytes to index and print 


0003C0 


B9 


00 


03 


133 


SHOWBYTE 


LDA 


TEMP , Y 


/obtain a byte 


0003C3 


20 


DA 


FD 


134 




JSR 


PRBYTE 


/ and print it 


0003C6 


A9 


A0 




135 




LDA 


#" " 




0003C8 


20 


ED 


FD 


136 




JSR 


COUT 




0003CB 


88 






137 




DEY 




/dec TEMP index and count 


0003CC 


10 


F2 


=03C0 


138 
139 




BPL 


SHOWBYTE 


/loop 8 times 


0003CE 


4C 


69 


FF 


140 




JMP 


MON+4 


/back, to Monitor, no beep 



End Merlin-16 assembly, 209 bytes, errors: , symbol table: $1800-$1911 



Vectored Joystick Programming 
IIGS Version 



by Steven Lepisto 

(Editor: Steven's article appeared In the March issue and the bulk of 
the 8-bit code ran in the April issue. This version is GS specific.) 



1 


1st 


off 




2 


rel 






3 


dsk 


joystickl6 


1 


4 








5 


xc 






6 


xc 






7 


mx 


%00 
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9 
page) 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
51 
62 
63 
64 
65 
66 
67 
68 
69 
70 



* Requires the following labels external to this file (preferably direct 

* (These should be word values) 

* trigger = - if button is down 

* button_state = state of button (s) . 

* = no button pressed 2 = button up 

* 1 = button down 3 = button still down 

* joyvectx = direction of x coordinate: -1, 0, +1. 

* joyvecty = direction of y coordinate: -1, 0, +1. 
* 

* These variables are defined here arbitrarily so the file can be assembled. 

* See documentation on ways to deal with these variables. 

trigger ent 

ds 2 
button_state ent 

ds 2 
joyvectx ent 

ds 2 
joyvecty ent 

ds 2 



* Macros used by these routines. 



SHORT and LONG use the following conventions: 



SHORT 

SHORT a_reg 
SHORT x_reg 



SHORT 



61 LONG 



mac 

do 

if 

sep 

if 

rax 

else 

mx 

fin 

else 

sep 

if 

mx 

else 

mx 

fin 

fin 

else 

sep 

mx 

fin 

<« 

mac 

do 

if 

rep 

if 

mx 

else 

mx 

fin 

else 



sets 8-bit A and X,Y regs. 

sets 8 -bit A.reg 

sets 8-bit X,Y regs (actually, anything 

that doesn't start with 'a' will work). 



]0 

a=]l 

#%00100000 

mx&%01 

%11 



i-10 



#%00010000 
mx & % 1 
%11 

%01 



#%00110000 
%11 



]0 

a-]l 

#%00100000 

mx&%01 

%01 

%00 



71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82. 

83 

84 



rep 


#%00010000 


if 


mx&%10 


mx 


%10 


else 




mx 


%00 


fin 




fin 




else 




rep 


#%00110000 


mx 


%00 


fin 




<« 
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85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112- 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 



Joystick read routine (16 bit version) for Apple Ilgs. 

by Stephen P. Lepisto 

Date: 1/3/88 

Assembler: Merlin 16 v3.50+. 



Reads a standard analog joystick in a custom way. Returns values that 
are 0-127 which is useful for vector-type motion. Also reads the buttons 
and sets a global variable accordingly. Combines both buttons into one. 

Note that these routines assume that there will be one call to dojoystick 
for every call to update joystick. Update joystick adds to the state of the 
stick until dojoystick clears it so you can call update joystick more than 
once before you call dojoystick. 

Dokeystick: returns if no joystick equivalent keys are pressed else 
returns a byte that looks like stickstate (see update joystick for 
specifics) . 

NOTE: GS-specific in locations and in CPU instructions! 



To use these routines : 

1) call initjoystick to intialize the routines and determine if there is a 
joystick present. Only has to be done once. 

2) at top of main loop, call update joystick to get current state of stick. 

3) sometime after calling update joystick, call dojoystick to process state 
of stick and return vector and trigger values. 

If stick isn't present, update joystick and dojoystick only process button 
presses (a la the apple keys) . If you wish, you can allow for installing a 
joystick on the fly by having the user press a key then based on that key, 
call initjoystick again. If the stick is ever unplugged on the fly, 
update joystick and dojoystick will fall back to reading only buttons, 
leaving the stick itself in a centered state. 



* Hardware locations . 



keypress equ 
key st robe equ 
gs_speed equ 
resetstick equ 
rdstickx equ 
rdsticky equ 
buttonO equ 
buttonl equ 



$e0c000 
$e0c010 
$eOC036 
$e0c070 
$e0c064 
$e0c065 
$e0c061 
$e0c062 



- if valid key press present 

access to clear keypress 

speed register of Ilgs 

reset paddle timers 

timer for paddle (+ when done) 

timer for paddle 1 (+ when done) 

- if button pushed 

- if button 1 pushed 



* Variables . 

stick_last ds 1 

stick_live ds 1 

stick_temp ds 1 

stickstate ds 1 



;last state of stick 
;positive if it's really there 
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159 Ida stick_live 

160 and #$ff 

161 xba 

162 rts 
163 

164 
165 

166' * Read keyboard looking for joystick equivalent keys. 

167 * 

168 * Output: 

169 * zero flag : set if no keypress processed or recognized else clear. 

170 * A.reg : if zero flag set, holds a else holds stick state byte. 

171 * 

172 * Note that only if a key is recognized is the keyboard strobe cleared. This 

173 * allows another routine outside of this one to see if the keypress was meant 

174 * for it. 

175 * 

17 6 * Currently supports eight motions, a fire button, and a combination fire 

177 * and motion button (to show how it can be done) . 

178 * Also supports P for pause (waits for another keypress) , and ctrl-J for 

179 * reinitializing the joystick (if it has been reconnected after first running 

180 * the initialization routine) . 
181 

182 rax %11 

183 dokeystick 

184 ldal keypress 

185 bpl :x 

186 cmp #"a" 

187 bcc :0 

188 cmp #"z"+l 

189 bcs :0 

190 and #$df 

191 :0 

192 and #$7f 

193 cmp #'P' 

194 bne :0a 

195 stal keystrobe 

196 :waitkey 

197 ldal keypress 

198 bpl :waitkey 

199 stal keystrobe 

200 bra :x 

201 :0a 

202 cmp #$0a ; ctrl-J 

203 bne :1 

204 jsr initjoystick 

205 bra :x 

206 :1 

207 sta dokey_char 

208 ldy #-1 

209 :2 

210 iny 

211 Ida key_table,y 

212 beq :x 

213 cmp dokey_char 

214 bne :2 

215 Ida joyxlate_tbl,y 

216 stal keystrobe 

217 rts 

218 :x 

219 Ida #0 

220 rts 
221 
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222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 

267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 



dokey_char ds 1 

* Key equivalent table: 
* 

* Current order is: 

* W : diagonal up left 

* R : diagonal up right 

* Z : diagonal down left 

* C : diagonal down right 



key_table dfb ' W , ' R' , ' Z' , ' C 

dfb 'X' , 'E' , 'S' , 'D' 

dfb 'F','M' 

dfb ;end of table 



X 
E 


down 
up 


S 


left 


D 


right 



F : button press 

M : button press and down motion 



* Values in this table correspond in position with the keys in key_table. 

joyxlate_tbl dfb %00101 , %01001 , %00110, %01010 
dfb %00010,%00001,%00100,%01000 
dfb %10000,%10010 



mx 



sOO 



* Processes last joystick read or current keyboard read (if any) and returns 

* information about the joystick. 
* 

* Output : 

* joyvectx 
joyvecty 
trigger 
stickstate 



-1, 0, +1 depending on x position of stick. 
-1, 0, +1 depending on y position of stick. 
- if button event occured else +. 

: before next update joystick, current state of stick. Bit 4 
reflects current position of button, set if button down. 



dojoystick ent 
short 
jsr 
bne 
bpl 
Ida 
sta 
sta 
sta 
sta 
bit 
brl 



dokeystick ; read and interpret keys as joystick 



; branch if key equivalent pressed 
; button equivalent key not pressed 
;else clear motion vectors 



:1 



Ida 

sta 
Ida 

cmp 

beq 

sta 

long 

ldx 

ldy 

ror 

bcc 

dey 



:1 

: a 

#0 

joyvectx 

joyvectx+1 

joyvecty 

joyvecty+1 

stick live 

:6 

stickstate 

stickstate 
stickstate 



stick_temp ;has the state changed? 

:6 /branch if not 

stick_temp 

x_reg 

#0 ;yes - which way?" 

#0 



rup 



284 




ror 




285 




bcc 


:3 


286 




iny 




287 


:3 






288 




ror 




289 




bcc 


:4 


290 




dex 




291 


:4 






292 




ror 




293 




bcc 


:5 


294 




inx 




295 


:5 






296 




stx 


joyvectx 


297 




sty 


joyvecty 


298 




short 


x reg 



; down 



; left 



; right --' 
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299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352" 

353 

354 

355 

356 

357 

358 

359 

360 

361 



Ida 
asl 
asl 
eor 
and 
beq 
ldy 
Ida 
and 
beq 
ldy 
bra 

moohange 

ldy 
Ida 
and 
beq 
ldy 

: skipchange 
sty 
stz 
tya 
lsr 
bcc 

:7 

Ida 
bra 

:8 

Ida 



stickstate 



stickstate 

#%11000000 

: nochange 

#2 

stickstate 

#%00110000 

: skipchange 

#1 

: skipchange 

#0 

stickstate 
#%00110000 
: skipchange 
#3 

button_state 
button state+1 



: 8 ; button not down 

#-1 
: 9 

#0 



sta 


trigger 


sta 


trigger+1 


Ida 


stickstate 


and 


#%00110000 


sta 


stickstate 


long 




rts 





362 




bne 


:1 




363 




Ida 


#-1 




364 




bmi 


:1a 




365 


:1 








366 




Ida 


#0 




367 


:1a 








368 




sta 


stick_live 




369 




Ida 


stickstate 




370 




and 


#%00110000 




371 




asl 






372 




asl 






373 




bit 


stick_live 




374 




bmi 


:5 




375 




cpy 


#16 


;up 


376 




bcs 


:2 




377 




ora 


#%00000001 




378 


:2 








379 




cpy 


#100 


; down 


380 




bcc 


:3 




381 




ora 


#%00000010 




382 


:3 








383 




cpx 


#16 


; left 


384 




bcs 


:4 




385 




ora 


#%00000100 




386 


:4 








387 




cpx 


#100 


; right 


388 




bcc 


:5 




389 




ora 


#%00001000 




390 


:5 








391 




tax 






392 




ldal 


buttonO 




393 




bpl 


:6 




394 




txa 






395 




ora 


#%00010000 




396 




tax 






397 


:6 








398 




ldal 


buttonl 




399 




bpl 


:7 




400 




txa 







Output : 

' stickstate' 



* Get values from joystick and convert to bit positions 

* in 'stickstate'. 
* 

* The "dead space" around center is about 65%. 
* 

* 
* 
* 
* 
* 
* 

* 

* bit 6 : previous state of button 

* Kit 7 • nrcnrinnej Q-t-^t-o t~i-f Kntt An X 



bit 

bit 1 

bit 

bit 

bit 

bit 

bit 

bit 

bit 



= 1 if stick is up 
= 1 if stick is down 
= 1 if stick is left 
= 1 if stick is right 
= 1 if button pushed 
= 1 if button pushed 
= 1 if button 1 pushed 
previous state of button 
previous state of button 



updatejoystick ent 
short 
bit 
bmi 
jsr 
cpx 



stick_live 
:5 

readstick 
#255 
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401 ora #%00100000 

402 tax 

403 :7 

404 stx stickstate 

405 long 

406 rts 
407 

408 

409 * Read apple joystick, returning values for left/.right, up/down directions. 

410 * 

411 * Output: 

412 * x.reg = value for horizontal movement (0-127) 

413 * = 255 if no stick is attached. 

414 * y.reg = value for vertical movement (0-127) 

415 * 

416 * Timing: minimum (both x, y read 0) = approx. 83 cycles 

417 * maximum (both read 127) approx. 3023 cycles 

418 * If no stick plugged in = approx. 5935 cycles 
419 

420 mx %11 

421 readstick 



422 




php 




423 




sei 




424 




ldal 


gs speed 


425 




sta 


oldspeed 


426 




and 


#$7f 


427 




stal 


gs speed 


428 




ldal 


resetsti< 


429 




ldx 


#0 


430 




ldy 


#0 


431 


:1 






432 




nop 




433 




nop 




434 




nop 




435 


:2 






436 




ldal 


rdsticky 


437 




bpl 


:4 


438 




iny 




439 




beq 


:5 


440 




ldal 


rdstickx 


441 




bpl 


:1 


442 


:3 






443 




inx 




444 




bne 


:2 


445 


:4 






446 




nop 




447 




nop 




448 




nop 




449 




ldal 


rdstickx 


450 




bmi 


:3 


451 


:5 






452 




Ida 


oldspeed 


453 




and 


#$80 


454 




oral 


gs speed 


455 




stal 


gs speed 


456 




pip 




457 




rts 




458 








459 


oldspeed 


ds 


1 


460 








461 




mx 


%00 



; delay tactics to compensate for 
;the inx/bne :2 



;branch if done reading 

/escape hatch if stick not plugged in 

;branch if done reading 

/always branches (it had better!) 

/•compensation for not doing the iny/beq :5 
;branch if still reading 



